home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gekikoh Dennoh Club 2
/
Gekikoh Dennoh Club Vol. 2 (Japan).7z
/
Gekikoh Dennoh Club Vol. 2 (Japan) (Track 01).bin
/
kowin
/
font
/
fonted31.lzh
/
fed3asm.s
next >
Wrap
Text File
|
1990-11-12
|
2KB
|
100 lines
***************************************
*****FONTED3***ver*1************
***************************************
************1990*by*小笠原博之*********
***************************************
*******************SPS0783*COR.********
***************************************
***************************************
.xdef _shiftL
.xdef _shiftR
.xdef _shiftU
.xdef _shiftD
.xdef _revH
.xdef _revV
.xdef _revall
.text
***************
_shiftL:
***************
move.l 4(sp),a0
moveq.l #15,d1
shiftL_loop:
rol.w (a0)+
dbra d1,shiftL_loop
rts
***************
_shiftR:
***************
move.l 4(sp),a0
moveq.l #15,d1
shiftR_loop:
ror.w (a0)+
dbra d1,shiftR_loop
rts
***************
_shiftU:
***************
move.l 4(sp),a0
moveq.l #14,d1
move.w (a0),d0
shiftU_loop:
move.w 2(a0),(a0)+
dbra d1,shiftU_loop
move.w d0,(a0)
rts
***************
_shiftD:
***************
move.l 4(sp),a0
moveq.l #14,d1
lea 32(a0),a0
move.w -2(a0),d0
shiftD_loop:
move.w -4(a0),-(a0)
dbra d1,shiftD_loop
move.w d0,-(a0)
rts
***************
_revH:
***************
move.l 4(sp),a0
moveq.l #15,d1
revH_loop0:
moveq.l #15,d2
revH_loop1:
lsl.w (a0)
roxr.w #1,d0
dbra d2,revH_loop1
move.w d0,(a0)+
dbra d1,revH_loop0
rts
***************
_revV:
***************
move.l 4(sp),a0
moveq.l #7,d1
lea 32(a0),a1
revV_loop:
move.w (a0),d0
move.w -2(a1),(a0)+
move.w d0,-(a1)
dbra d1,revV_loop
rts
***************
_revall:
***************
move.l 4(sp),a0
moveq.l #15,d1
revall_loop:
not.w (a0)+
dbra d1,revall_loop
rts